home *** CD-ROM | disk | FTP | other *** search
/ Greenhouse Effect Detection Expriment / NASA Greenhouse Effect Detection Expriment 1992 - Disc 2.iso / software / dos / cdf22pc / src / tools / tokens.c < prev    next >
Encoding:
C/C++ Source or Header  |  1992-02-24  |  3.6 KB  |  132 lines
  1. /******************************************************************************
  2. *
  3. *  NSSDC/CDF                            CDF tokens.
  4. *
  5. *  Version 1.0, 24-Feb-92, ST Systems (STX)
  6. *
  7. *  Modification history:
  8. *
  9. *   V1.0  24-Feb-92, J Love    Original version.
  10. *
  11. ******************************************************************************/
  12.  
  13. #include "cdfdist.h"
  14.  
  15. /******************************************************************************
  16. * EncodingToken.  Return address of character string for encoding.
  17. ******************************************************************************/
  18.  
  19. char *EncodingToken(encoding)
  20. long encoding;
  21. {
  22. switch (encoding) {
  23.   case NETWORK_ENCODING: return "NETWORK";
  24.   case VAX_ENCODING: return "VAX";
  25.   case SUN_ENCODING: return "SUN";
  26.   case MIPSEL_ENCODING: return "MIPSEL";
  27.   case MIPSEB_ENCODING: return "MIPSEB";
  28.   case IBMRS_ENCODING: return "IBMRS";
  29.   case IBMPC_ENCODING: return "IBMPC";
  30.   case HP_ENCODING: return "HP";
  31. }
  32. return "?";
  33. }
  34.  
  35. /******************************************************************************
  36. * MajorityToken.  Return address of character string for majority.
  37. ******************************************************************************/
  38.  
  39. char *MajorityToken(majority)
  40. long majority;
  41. {
  42. switch (majority) {
  43.   case ROW_MAJOR: return "ROW";
  44.   case COL_MAJOR: return "COL";
  45. }
  46. return "?";
  47. }
  48.  
  49. /******************************************************************************
  50. * FormatToken.  Return address of character string for format.
  51. ******************************************************************************/
  52.  
  53. char *FormatToken(format)
  54. long format;
  55. {
  56. switch (format) {
  57.   case SINGLE_FILE: return "SINGLE";
  58.   case MULTI_FILE: return "MULTI";
  59. }
  60. return "?";
  61. }
  62.  
  63. /******************************************************************************
  64. * ScopeToken.  Return address of character string for scope.
  65. ******************************************************************************/
  66.  
  67. char *ScopeToken(scope)
  68. long scope;
  69. {
  70. switch (scope) {
  71.   case GLOBAL_SCOPE: return "GLOBAL";
  72.   case VARIABLE_SCOPE: return "VARIABLE";
  73.   case GLOBAL_SCOPE_ASSUMED: return "ASSUMED GLOBAL";
  74.   case VARIABLE_SCOPE_ASSUMED: return "ASSUMED VARIABLE";
  75. }
  76. return "?";
  77. }
  78.  
  79. /******************************************************************************
  80. * VarianceToken.  Return address of character string for variance.
  81. ******************************************************************************/
  82.  
  83. char *VarianceToken(variance)
  84. long variance;
  85. {
  86. switch (variance) {
  87.   case VARY: return "VARY";
  88.   case NOVARY: return "NOVARY";
  89. }
  90. return "?";
  91. }
  92.  
  93. /******************************************************************************
  94. * TFvarianceToken.  Return address of character string for variance (T/F).
  95. ******************************************************************************/
  96.  
  97. char *TFvarianceToken(variance)
  98. long variance;
  99. {
  100. switch (variance) {
  101.   case VARY: return "T";
  102.   case NOVARY: return "F";
  103. }
  104. return "?";
  105. }
  106.  
  107. /******************************************************************************
  108. * DataTypeToken.  Return address of character string for data type.
  109. ******************************************************************************/
  110.  
  111. char *DataTypeToken(dataType)
  112. long dataType;
  113. {
  114. switch (dataType) {
  115.   case CDF_BYTE: return "_BYTE";
  116.   case CDF_INT1: return "_INT1";
  117.   case CDF_INT2: return "_INT2";
  118.   case CDF_INT4: return "_INT4";
  119.   case CDF_UINT1: return "_UINT1";
  120.   case CDF_UINT2: return "_UINT2";
  121.   case CDF_UINT4: return "_UINT4";
  122.   case CDF_REAL4: return "_REAL4";
  123.   case CDF_REAL8: return "_REAL8";
  124.   case CDF_FLOAT: return "_FLOAT";
  125.   case CDF_DOUBLE: return "_DOUBLE";
  126.   case CDF_EPOCH: return "_EPOCH";
  127.   case CDF_CHAR: return "_CHAR";
  128.   case CDF_UCHAR: return "_UCHAR";
  129. }
  130. return "?";
  131. }
  132.